home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #7 / Commodore_Disk_User_Vol.3_7_1990_-.d64 / designer offsets (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  6.7 KB  |  211 lines
  1. 10 if a>0then40
  2. 20 poke51,255:poke52,63:poke55,255:poke56,63:clr
  3. 30 a=a+1:load"animate.mc",8,1
  4. 40 poke53281,0:poke53280,0:tr=0:mb=0
  5. 50 mu=49152:lft=49153:rght=49154
  6. 60 er=0:eb=0
  7. 70 print"[147]":input"multi-col mode(y-n)";mc$:ifmc$<>"y"andmc$<>"n"then70
  8. 80 ifmc$="y"thenpokemu,1:mc=1
  9. 90 ifmc$="n"thenpokemu,0:mc=0
  10. 100 gosub520
  11. 110 input"scale factor 0-2.5";sc
  12. 120 if sc<0orsc>2.5thenprint"[147]":goto60
  13. 130 ifsc=osandmc=mbthentr=1:goto290
  14. 140 os=sc:mb=mc
  15. 150 beg=16384
  16. 160 fort=0to6:forn=0to47
  17. 170 form=0to3
  18. 180 readx
  19. 190 x=x*sc
  20. 200 x=int(x+.3):ifmc=1thenx=(int(x/2))*2
  21. 210 ifer<abs(x)thener=abs(x)
  22. 220 ifx<0thenx=256+x
  23. 230 pokebeg+(512*m),x
  24. 240 nextm
  25. 250 beg=beg+1
  26. 260 nextn
  27. 270 beg=beg+2
  28. 280 nextt
  29. 290 input"scale factor of arms 0-2.5";sc
  30. 300 ifsc<0orsc>2.5then290
  31. 310 ifsc=obandtr=1then490
  32. 320 ifsc=obandtr=0then480
  33. 330 fort=0to3:forn=0to30
  34. 340 form=0to3
  35. 350 readx
  36. 360 x=x*sc
  37. 370 x=int(x+.3):ifmc=1thenx=(int(x/2))*2
  38. 380 ifeb<abs(x)theneb=abs(x)
  39. 390 ifx<0thenx=256+x
  40. 400 poke beg+(512*m),x
  41. 410 nextm
  42. 420 beg=beg+1
  43. 430 nextn
  44. 440 nextt
  45. 450 if tr=1andob<>scthenpoke lft+2,eb:pokerght+2,80-eb:goto490
  46. 460 ob=sc
  47. 470 poke lft+2,eb:pokerght+2,80-eb
  48. 480 pokelft,er:pokerght,80-er
  49. 490 sys49160
  50. 500 restore
  51. 510 goto60
  52. 520 print" 0-black"tab(10)" 1-white"tab(20)" 2-red"tab(30)" 3-cyan"
  53. 530 print" 4-purple"tab(10)" 5-green"tab(20)" 6-blue"tab(30)" 7-yellow"
  54. 540 print" 8-orange"tab(10)" 9-brown"tab(20)"10-l.red"tab(30)"11-gray 1"
  55. 550 print"12-gray 2"tab(10)"13-l.green"tab(20)"14-l.blue"tab(30)"15-gray 3"
  56. 560 ifmc=1then640
  57. 570 input"background col";c1
  58. 580 ifc1>15orc1<0then570
  59. 590 input"foreground col";c2
  60. 600 ifc2>15orc2<0then590
  61. 610 c=(c2*16)+c1
  62. 620 poke49157,c
  63. 630 return
  64. 640 input"background col";cb
  65. 650 input"colour 1      ";c1
  66. 660 ifc1>15orc1<0then650
  67. 670 input"colour 2      ";c2
  68. 680 ifc2>15orc2<0then670
  69. 690 input"colour 3      ";c3
  70. 700 ifc3>15orc3<0then690
  71. 710 c=(c2*16)+c1
  72. 720 poke49157,c
  73. 730 ifcb=5thenprint"[144]"
  74. 740 poke53281,cb
  75. 750 poke49159,cb
  76. 760 poke49158,c3
  77. 770 return
  78. 780 data0,0,0,0,0,0,0,0
  79. 790 data0,0,0,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
  80. 800 data1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
  81. 810 data2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,2,-1,-2,0
  82. 820 data2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,3,-1,-3,0
  83. 830 data3,-1,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
  84. 840 data4,-1,-3,0,4,-1,-3,0,4,-2,-3,0,3,-2,-4,0
  85. 850 data3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
  86. 860 data3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
  87. 870 data2,-2,-4,0,2,-2,-4,0,2,-2,-4,0,2,-3,-4,0
  88. 880 data2,-3,-4,0,2,-3,-4,0,2,-3,-4,0,2,-3,-4,0
  89. 890 data2,-3,-5,0,2,-3,-5,0,1,-3,-5,0,1,-3,-5,0
  90. 900 data1,-3,-5,0,1,-3,-5,0
  91. 910 rem frame2
  92. 920 data0,0,0,0,0,0,0,0
  93. 930 data1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
  94. 940 data2,0,-2,0,2,0,-2,0,2,0,-2,0,2,0,-2,0
  95. 950 data3,0,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
  96. 960 data4,-1,-4,0,4,-1,-4,0,4,-1,-4,0,4,-1,-4,0
  97. 970 data5,-1,-5,0,5,-1,-5,0,5,-1,-5,0,5,-1,-5,0
  98. 980 data6,-1,-5,0,6,-1,-5,0,6,-2,-5,0,5,-2,-5,0
  99. 990 data5,-2,-5,0,5,-2,-5,0,5,-2,-5,0,5,-2,-5,0
  100. 1000 data5,-2,-6,0,5,-2,-6,0,5,-2,-6,0,4,-2,-6,0
  101. 1010 data4,-2,-6,0,4,-2,-6,0,4,-2,-6,0,4,-3,-6,0
  102. 1020 data4,-3,-6,0,4,-3,-6,0,4,-3,-6,0,3,-3,-6,0
  103. 1030 data3,-3,-7,0,4,-3,-7,0,4,-3,-7,0,3,-3,-7,0
  104. 1040 data3,-3,-7,0,3,-3,-7,0
  105. 1050 rem frame3
  106. 1060 data0,0,0,0,1,0,0,0
  107. 1070 data1,0,0,0,1,0,0,0,2,0,-1,0,2,0,-1,0
  108. 1080 data2,0,-2,0,3,0,-2,0,3,0,-2,0,3,0,-3,0
  109. 1090 data4,0,-3,0,4,0,-3,0,4,0,-3,0,5,0,-3,0
  110. 1100 data5,0,-3,0,5,0,-3,0,6,0,-4,0,6,0,-4,0
  111. 1110 data6,0,-4,0,7,0,-4,0,7,0,-4,0,8,0,-4,0
  112. 1120 data8,0,-4,0,9,0,-5,0,8,-1,-5,0,8,-1,-5,0
  113. 1130 data8,-1,-5,0,8,-1,-5,0,8,-1,-5,0,8,-1,-5,0
  114. 1140 data8,-1,-6,0,8,-1,-6,0,8,-1,-6,0,8,-1,-6,0
  115. 1150 data8,-1,-6,0,8,-1,-6,0,8,-1,-7,0,8,-1,-7,0
  116. 1160 data8,-1,-7,0,8,-1,-7,0,8,-1,-8,0,8,-1,-8,0
  117. 1170 data8,-1,-8,0,8,-1,-9,0,8,-1,-9,0,8,-1,-9,0
  118. 1180 data8,-1,-9,0,8,-1,-9,0
  119. 1190 rem frame4
  120. 1200 data0,0,0,0,1,0,-1,0
  121. 1210 data1,0,-1,0,1,0,-1,0,2,0,-1,0,2,0,-1,0
  122. 1220 data2,0,-1,0,3,0,-1,0,3,0,-2,0,3,0,-2,0
  123. 1230 data4,0,-2,0,4,0,-2,0,4,0,-2,0,5,0,-3,0
  124. 1240 data5,0,-3,0,5,0,-3,0,6,0,-3,0,6,0,-3,0
  125. 1250 data6,0,-3,0,7,0,-3,0,7,0,-4,0,8,0,-4,0
  126. 1260 data8,0,-4,0,9,0,-4,0,8,0,-4,0,8,0,-4,0
  127. 1270 data8,0,-5,0,8,0,-5,-1,8,0,-5,-1,8,0,-5,-1
  128. 1280 data8,0,-5,-1,8,0,-5,-1,8,0,-6,-1,8,0,-6,-1
  129. 1290 data9,0,-6,-1,9,0,-6,-1,9,0,-6,-1,9,0,-7,-1
  130. 1300 data9,0,-7,-1,9,0,-7,-1,10,0,-7,-1,10,0,-8,-1
  131. 1310 data10,0,-8,-1,10,0,-8,-1,10,0,-8,-1,10,0,-9,-1
  132. 1320 data10,0,-9,-1,10,0,-9,-1
  133. 1330 rem frame5
  134. 1340 data0,0,0,0,1,0,0,0
  135. 1350 data1,0,0,0,1,0,0,0,2,0,0,0,2,0,0,0
  136. 1360 data2,0,0,0,3,0,-1,0,3,0,-1,0,3,0,-1,0
  137. 1370 data4,0,-1,0,4,0,-1,0,4,0,-1,0,5,0,-1,0
  138. 1380 data5,0,-1,-1,5,0,-2,-1,6,0,-2,-1,6,0,-2,-1
  139. 1390 data6,0,-2,-1,7,0,-2,-1,7,0,-2,-1,8,0,-2,-1
  140. 1400 data8,0,-2,-1,9,0,-3,-1,8,0,-3,-2,8,0,-3,-2
  141. 1410 data8,0,-3,-2,8,0,-3,-2,8,0,-3,-2,8,0,-3,-2
  142. 1420 data8,0,-4,-2,8,0,-4,-2,7,0,-4,-2,7,0,-4,-2
  143. 1430 data7,0,-4,-2,7,0,-4,-2,7,0,-4,-2,7,0,-5,-2
  144. 1440 data7,0,-5,-2,7,0,-5,-2,6,0,-5,-2,6,0,-5,-3
  145. 1450 data6,0,-5,-3,6,0,-5,-3,6,0,-6,-3,6,0,-6,-3
  146. 1460 data6,0,-6,-3,6,0,-6,-3
  147. 1470 rem frame6
  148. 1480 data0,0,0,0,0,0,0,0
  149. 1490 data1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
  150. 1500 data2,0,0,0,2,0,0,0,2,0,0,0,2,0,0,0
  151. 1510 data3,0,0,0,3,0,-1,-1,3,0,-1,-1,3,0,-1,-1
  152. 1520 data4,0,-1,-1,4,0,-1,-1,4,0,-1,-1,4,0,-1,-1
  153. 1530 data5,0,-1,-1,5,0,-1,-1,5,0,-1,-1,6,0,-1,-1
  154. 1540 data6,0,-1,-1,6,0,-1,-1,6,0,-2,-2,5,0,-2,-2
  155. 1550 data5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,5,0,-2,-2
  156. 1560 data5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,4,0,-2,-2
  157. 1570 data4,0,-2,-2,4,0,-2,-2,4,0,-3,-3,4,0,-3,-3
  158. 1580 data4,0,-3,-3,4,0,-3,-3,4,0,-3,-3,3,0,-3,-3
  159. 1590 data3,0,-3,-3,3,0,-3,-3,3,0,-3,-3,3,0,-3,-3
  160. 1600 data3,0,-3,-3,3,0,-3,-3
  161. 1610 rem frame7
  162. 1620 data0,0,0,0,0,0,0,0
  163. 1630 data0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
  164. 1640 data1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
  165. 1650 data2,0,0,0,2,0,0,-1,2,0,0,-1,2,0,0,-1
  166. 1660 data2,0,0,-1,2,0,0,-1,2,0,0,-1,3,0,0,-1
  167. 1670 data3,0,0,-1,3,0,0,-1,3,0,0,-1,3,0,0,-1
  168. 1680 data3,0,0,-1,4,0,-1,-2,4,0,-1,-2,3,0,-1,-2
  169. 1690 data3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
  170. 1700 data3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
  171. 1710 data2,0,-1,-2,2,0,-1,-2,2,0,-1,-2,2,0,-1,-3
  172. 1720 data2,0,-1,-3,2,0,-1,-3,2,0,-1,-3,2,0,-1,-3
  173. 1730 data2,0,-1,-3,2,0,-1,-3,1,0,-1,-3,1,0,-1,-3
  174. 1740 data1,0,-1,-3,1,0,-1,-3
  175. 1750 rem arms
  176. 1760 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  177. 1770 data-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0
  178. 1780 data-1,0,-1,0,-2,0,-2,0,-2,0,-2,0,-2,0,-2,0
  179. 1790 data-2,0,-2,0,-2,0,-2,0,-3,0,-3,0,-3,0,-3,0
  180. 1800 data-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  181. 1810 data-2,-1,-2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  182. 1820 data-1,-1,-1,-1,-1,-1,-1,-1,0,-1,0,-1,0,-1,0,-1
  183. 1830 data0,-1,0,-1,0,-1,0,-1,0,-1,0,-1
  184. 1840 rem frame2+7
  185. 1850 data0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0
  186. 1860 data-1,0,0,0,-1,0,0,0,-2,0,0,0,-2,0,0,0
  187. 1870 data-2,0,0,0,-3,0,0,0,-3,0,0,0,-3,0,0,0
  188. 1880 data-4,-1,0,0,-4,-1,0,0,-5,-1,0,0,-4,-1,1,0
  189. 1890 data-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1
  190. 1900 data-3,-2,1,-1,-3,-2,1,-1,-3,-2,2,-1,-3,-2,2,-1
  191. 1910 data-3,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1
  192. 1920 data-2,-2,2,-1,-2,-2,2,-1,-1,-2,2,-1
  193. 1930 rem frame3+6
  194. 1940 data0,0,0,0,0,0,0,0,-1,0,0,0,-1,0,0,0
  195. 1950 data-2,0,0,0,-2,0,0,0,-3,0,1,0,-3,0,1,0
  196. 1960 data-4,0,1,0,-4,0,1,0,-5,-1,1,-1,-5,-1,2,-1
  197. 1970 data-5,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1
  198. 1980 data-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1
  199. 1990 data-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2
  200. 2000 data-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2
  201. 2010 data-3,-3,5,-2,-3,-3,5,-2,-3,-3,5,-2
  202. 2020 rem frame4+5
  203. 2030 data0,0,0,0,0,0,0,0,-1,0,0,0,-2,0,0,0
  204. 2040 data-2,0,0,0,-3,0,1,0,-4,0,1,0,-4,-1,1,-1
  205. 2050 data-5,-1,1,-1,-5,-1,1,-1,-6,-1,2,-1,-6,-1,2,-1
  206. 2060 data-6,-1,2,-1,-7,-1,2,-1,-6,-2,2,-1,-6,-2,2,-2
  207. 2070 data-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2
  208. 2080 data-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-3
  209. 2090 data-5,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3
  210. 2100 data-4,-3,6,-3,-4,-3,6,-3,-4,-3,6,-3
  211.